home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / com_and3.zip / HOST.CMD < prev    next >
OS/2 REXX Batch file  |  1989-10-03  |  6KB  |  358 lines
  1. ASSIGN S0 "****"
  2. ASSIGN S3 "xxxx"
  3. LEGEND "Scripted host mode.  Press ESC to exit, and then hangup."
  4. SET BAUD 1200
  5. SET PARITY NONE
  6. SET DATA 8
  7. SET STOP 1
  8. SET PORT COM2
  9. SET ALARM OFF
  10. SET ATIME 1
  11. SET ASCII UP_LF LF
  12. TRANSMIT "~~~+++~~~ATZ^M"
  13. SET MASK ON
  14. LOG MARK ON
  15. SUBDIR S2
  16. CLOG "* Host script loaded"
  17. GOTO Restart
  18. Read_Comm:
  19. RGET S9 80 180
  20. IF NOT CONNECTED
  21. GOTO Disconnect
  22. ENDIF
  23. IF NOT SUCCESS
  24. GOTO Timeout
  25. ENDIF
  26. FIND S9 "NO CARRIER"
  27. IF FOUND
  28. GOTO Disconnect
  29. ENDIF
  30. SET FLAG(0) OFF
  31. RETURN
  32. Timeout:
  33. TRAN "^M^J... autodisconnect due to timeout"
  34. MESSAGE "^M^J... autodisconnect due to timeout"
  35. GOTO RComm_Exit
  36. Disconnect:
  37. MESSAGE  "^M^JCaller disconnected"
  38. RComm_Exit:
  39. SET FLAG(0) ON
  40. RETURN
  41. Restart:
  42. CHDIR S2
  43. SET RECHO OFF
  44. CLEAR
  45. LOCATE 0,0
  46. MESSAGE "^M^JWaiting..."
  47. Pause 3
  48. HANGUP
  49. PAUSE 3
  50. TRANSMIT "ATE0Q0V1X1S0=2 S7=30 S9=10^M"
  51. WAIT_IT_OUT:
  52. RGET S9 80 180
  53. IF NOT SUCCESS
  54. GOTO Wait_IT_Out
  55. ENDIF
  56. FIND S9 "NO CARRIER"
  57. IF FOUND
  58. GOTO Restart
  59. ENDIF
  60. FIND S9 "CONNECT"
  61. IF NOT FOUND
  62. GOTO WAIT_IT_OUT
  63. ENDIF
  64. GOSUB AutoBaud
  65. TRAN "^M^JThe Flying Scotsman greets you!!"
  66. SET RECHO ON
  67. LOG OPEN "HOSTLOG"
  68. ID_Query:
  69. TRANSMIT "^M^JEnter your ID: "
  70. GOSUB Read_Comm
  71. IF FLAG(0)
  72. GOTO Exit
  73. ENDIF
  74. SWITCH S9
  75. CASE "_NULL"
  76. TRAN "You must be someone^M^J"
  77. GOTO Exit
  78. ENDCASE
  79. ENDSWITCH
  80. CLOG "* Host mode logon by "*S9
  81. TRANSMIT "^M^JEnter your password: "
  82. LOG SUSPEND
  83. SET RECHO OFF
  84. SET RDISPLAY OFF
  85. GOSUB Read_Comm
  86. IF FLAG(0)
  87. GOTO Exit
  88. ENDIF
  89. LOG RESUME
  90. SET RECHO ON
  91. SET RDISPLAY ON
  92. SWITCH S9
  93. CASE S0
  94. TRANSMIT "^M^J"
  95. ENDCASE
  96. DEFAULT
  97. TRANSMIT "Sorry , but you're not authorized."
  98. GOTO Exit
  99. ENDCASE
  100. ENDSWITCH
  101. Main_Prompt:
  102. MESS "^M^JMain prompt"
  103. TRAN "^M^JC)hdir F)ilelist, P)athlist, U)pload, D)ownload, or E)xit: "
  104. GOSUB Read_Comm
  105. IF FLAG(0)
  106. GOTO EXIT
  107. ENDIF
  108. SWITCH S9
  109. CASE "C"
  110. GOTO CHDIR
  111. ENDCASE
  112. CASE "D"
  113. GOTO DOWNLOAD
  114. ENDCASE
  115. CASE "E"
  116. TRAN "Ok... bye"
  117. GOTO EXIT
  118. ENDCASE
  119. CASE "F"
  120. GOTO FILELIST
  121. ENDCASE
  122. CASE "P"
  123. GOTO PATHLIST
  124. ENDCASE
  125. CASE "U"
  126. GOTO UPLOAD
  127. ENDCASE
  128. CASE "X"
  129. GOTO DOS
  130. ENDCASE
  131. CASE "OFF"
  132. TRAN "Ok... bye"
  133. GOTO EXIT
  134. ENDCASE
  135. DEFAULT
  136. FIND S9 "CHDIR"
  137. IF FOUND
  138. GOTO CHDIR
  139. ENDIF
  140. FIND S9 "DOWN"
  141. IF FOUND
  142. GOTO DOWNLOAD
  143. ENDIF
  144. FIND S9 "FILE"
  145. IF FOUND
  146. GOTO FILELIST
  147. ENDIF
  148. FIND S9 "PATH"
  149. IF FOUND
  150. GOTO PATHLIST
  151. ENDIF
  152. FIND S9 "UP"
  153. IF FOUND
  154. GOTO UPLOAD
  155. ENDIF
  156. FIND S9 "DOS"
  157. IF FOUND
  158. GOTO DOS
  159. ENDIF
  160. TRAN "^M^JCommand not recognized... try again"
  161. GOTO Main_Prompt
  162. ENDCASE
  163. ENDSWITCH
  164. TRAN "^M^JThank you veddy much.^M^J"
  165. GOTO Main_Prompt
  166. EXIT:
  167. CLOG "* Host mode exit"
  168. LOG CLOSE
  169. MESS "^G"
  170. GOTO Restart
  171. File_Query:
  172. MESS "^M^JFname query"
  173. TRAN "^M^JEnter the file name: "
  174. GOSUB Read_Comm
  175. IF FLAG(0)
  176. RETURN
  177. ENDIF
  178. ASSIGN S8 S9
  179. SWITCH S8
  180. CASE "_NULL"
  181. SET FLAG(1) ON
  182. RETURN
  183. ENDCASE
  184. ENDSWITCH
  185. SET FLAG(1) OFF
  186. RETURN
  187. UPLOAD:
  188. MESS "^M^JUpload from caller"
  189. GOSUB File_Query
  190. IF FLAG(0)
  191. GOTO EXIT
  192. ENDIF
  193. IF FLAG(1)
  194. GOTO Main_Prompt
  195. ENDIF
  196. ISFILE S8
  197. IF SUCCESS
  198. TRAN "^M^JFile already exists"
  199. GOTO UPLOAD
  200. ENDIF
  201. MESS "^M^JMethod prompt"
  202. TRAN "^M^JW)xmodem, X)modem, Y)modem (X1k), Z)modem, or K)ermit: "
  203. GOSUB Read_Comm
  204. IF FLAG(0)
  205. GOTO Main_Prompt
  206. ENDIF
  207. SWITCH S9
  208. CASE "W"
  209. GETFILE WXMODEM S8
  210. ENDCASE
  211. CASE "X"
  212. GETFILE XMODEM S8
  213. ENDCASE
  214. CASE "Y"
  215. GETFILE YMODEM S8
  216. ENDCASE
  217. CASE "Z"
  218. GETFILE ZMODEM
  219. ENDCASE
  220. CASE "K"
  221. GETFILE KERMIT
  222. ENDCASE
  223. DEFAULT
  224. TRAN "^M^JInvalid transfer selection"
  225. GOTO Main_Prompt
  226. ENDCASE
  227. ENDSWITCH
  228. GOTO EOTransfer
  229. DOWNLOAD:
  230. MESS "^M^JDownload to caller"
  231. GOSUB File_Query
  232. IF FLAG(0)
  233. GOTO EXIT
  234. ENDIF
  235. IF FLAG(1)
  236. GOTO Main_Prompt
  237. ENDIF
  238. ISFILE S8
  239. IF NOT SUCCESS
  240. TRAN "^M^JFile doesn't exist"
  241. GOTO DOWNLOAD
  242. ENDIF
  243. MESS "^M^JMethod prompt"
  244.         TRAN "^MW)xmodem, X)modem, Y)modem (X1k), Z)modem, K)ermit, or A)scii: "
  245. GOSUB Read_Comm
  246. IF FLAG(0)
  247. GOTO Main_Prompt
  248. ENDIF
  249. SWITCH S9
  250. CASE "A"
  251. SENDFILE ASCII S8
  252. ENDCASE
  253. CASE "W"
  254. SENDFILE WXMODEM S8
  255. ENDCASE
  256. CASE "X"
  257. SENDFILE XMODEM S8
  258. ENDCASE
  259. CASE "Y"
  260. SENDFILE YMODEM S8
  261. ENDCASE
  262. CASE "Z"
  263. SENDFILE ZMODEM S8
  264. ENDCASE
  265. CASE "K"
  266. SENDFILE KERMIT S8
  267. ENDCASE
  268. DEFAULT
  269. TRAN "^M^JInvalid transfer selection"
  270. GOTO Main_Prompt
  271. ENDCASE
  272. ENDSWITCH
  273. GOTO EOTransfer
  274. EOTRANSFER:
  275. IF NOT SUCCESS
  276. MESS "^M^JTransfer failed"
  277. ELSE
  278. MESS "^M^JTransfer OK"
  279. ENDIF
  280. GOTO Main_Prompt
  281. FILELIST:
  282. MESS "^M^JFilelist command"
  283. TRAN "^M^J Working..."
  284. DOS "DIR >HOSTTEMP.TXT"
  285. TRAN "^M^J"
  286. SENDFILE ASCII "HOSTTEMP.TXT"
  287. TRAN "^M^J"
  288. DOS "DEL HOSTTEMP.TXT"
  289. GOTO Main_Prompt
  290. CHDIR:
  291. MESS "^M^JCHDIR Command"
  292. TRAN "^M^JEnter the drive:subdirectory: "
  293. GOSUB Read_Comm
  294. IF FLAG(0)
  295. GOTO Main_Prompt
  296. ENDIF
  297. CHDIR S9
  298. GOTO Main_Prompt
  299. PATHLIST:
  300. MESS "^M^JPathlist command"
  301. TRAN "^M^J Working..."
  302. DOS "Treed >HOSTTEMP.TXT"
  303. TRAN "^M^J"
  304. SENDFILE ASCII "HOSTTEMP.TXT"
  305. TRAN "^M^J"
  306. DOS "DEL HOSTTEMP.TXT"
  307. GOTO Main_Prompt
  308. DOS:
  309. MESSAGE "^M^JRequesting DOS password"
  310. LOG SUSPEND
  311. SET RECHO OFF
  312. SET RDISPLAY OFF
  313. TRANSMIT "^M^JEnter the DOS password: "
  314. GOSUB Read_Comm
  315. IF FLAG(0)
  316. GOTO Main_Prompt
  317. ENDIF
  318. LOG RESUME
  319. SET RECHO ON
  320. SET RDISPLAY ON
  321. SWITCH S9
  322. CASE S3
  323. TRANSMIT "^M^J"
  324. ENDCASE
  325. DEFAULT
  326. TRANSMIT "Sorry , but you're not authorized."
  327. GOTO Main_Prompt
  328. ENDCASE
  329. ENDSWITCH
  330. LOG RESUME
  331. MESS "^M^JDOS Command"
  332. TRAN "^M^JEnter the command: "
  333. GOSUB Read_Comm
  334. IF FLAG(0)
  335. GOTO Main_Prompt
  336. ENDIF
  337. TRAN "^M^J Working..."
  338. CONCAT S9 ">HOSTTEMP.TXT"
  339. DOS   S9
  340. TRAN "^M^J"
  341. SENDFILE ASCII "HOSTTEMP.TXT"
  342. TRAN "^M^J"
  343. DOS "DEL HOSTTEMP.TXT"
  344. GOTO Main_Prompt
  345. AutoBaud:
  346. FIND S9 "1200"
  347. IF FOUND
  348. SET BAUD 1200
  349. RETURN
  350. ENDIF
  351. FIND S9 "2400"
  352. IF FOUND
  353. SET BAUD 2400
  354. RETURN
  355. ENDIF
  356. SET BAUD 300
  357. RETURN
  358.